home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
BTH2SRC.ZIP
/
READER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-12-02
|
5KB
|
72 lines
{ TheDraw Pascal Crunched Screen Image. Date: 12/02/95 }
procedure readeransi;
const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=25;
IMAGEDATA_LENGTH=1039;
IMAGEDATA : array [1..1039] of Char = (
#15,#23,'█',#26, #6,'▀',#25, #4,'▀','▓','▀','▀',' ',#26, #7,'▀','▒',
#26, #6,'▀','░',#25, #2,'▀',' ',' ','▀',' ',' ', #8,'░',' ',' ','▄',
#16,' ',' ', #1,'▄','▀', #0,#17,'░', #9,#16,'▀', #1,'▄', #9,'▄','■',
' ',#15,#23,'█',#26, #4,'▀','░',#25, #2,'▀','▓','▀','▀',' ',' ','▀',
' ',' ','▀',' ', #7,#16,'█',#24,#15,#23,'█',' ','T','i','t','l','e',
' ',' ',':',#25,'%',#16,' ', #1,'▀','░',' ', #0,#17,'▒',#16,' ', #9,
'·',' ','▀',' ',#15,#23,'█',' ','B','e','y','o','n','d',' ','t','h',
'e',' ','H','o','r','i','z','o','n',' ', #8,'▀',#24,#15,'▀',' ', #0,
'A','u','t','h','o','r',' ',':',#25,'$', #8,'▀',#16,' ', #1,'■','▄',
' ', #0,#17,'▓', #9,#16,'▄','▀','▀','▄',' ',#15,#23,'▄',' ', #0,'I',
's','s','u','e',' ','2',#25,#11, #8,'█',#24,#15,'▀',#25, #6, #8,'░',
'▄',#25, #4,'▄','▄',#25, #4,#26, #6,'▄','░','▄','▄','▄','▓',#26,#12,
'▄','█',#16,' ', #1,'▄',' ','▀', #9,'▀', #1,'·','▄', #9,#17,'░','▐',
#16,' ',#23,#25, #3, #8,'▄','▓',' ','▄','▄','▄','▒','▄',' ','░',#26,
#6,'▄','█',#24,#16,#25, #3, #1,'■',' ',' ', #8,'┌',#26,'?','─','┐',
' ',' ', #1,'■',#24,'▀','▀','█', #9,'▄','▄', #1,'░', #9,'■', #8,'│',
#25,'?','│', #9,'■', #1,'░', #9,'▄','▄', #1,'█','▀','▀',#24,'░',' ',
' ', #0,#17,'░', #9,'▀','█',#16,'.', #8,'│',#25,'?','│', #9,'.',#17,
'█','▀', #0,'░',#16,' ',' ', #1,'░',#24,'░','▄','▀', #0,#17,'▒', #1,
#16,'▐', #9,#17,'▐',#16,'▌', #8,'│',#25,'?','│',#15,#23,'█','▀','▓',
'▀',' ','▀',' ',#24, #1,#16,'▐','▌',' ', #0,#17,'▓',#16,' ', #9,#17,
'░','█', #8,#16,'│',#25,'?','│',#15,#23,'▓',' ',' ', #9,#17,#26, #0,
#30,#23,#25, #2,#24, #1,#16,'▓','.','·', #0,#17,'▓',#16,' ', #1,'▐',
#9,#17,'▓', #8,#16,'│',#25,'?','│',#15,#23,'▒', #8,'┌','[', #1,'▓',
#8,']','┐',' ',#24, #1,#16,'▐','▌',' ','▄','■','▐', #9,#17,'▓', #8,
#16,'│',#25,'?','│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤',' ',
#24,#16,' ', #1,'▀','▄', #9,'▄',' ', #1,'·', #9,'▀', #8,'│',#25,'?',
'│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤',' ',#24, #1,#16,'▀',
'▄',' ', #0,#17,'▓', #1,#16,'▀', #9,'▀','■', #8,'│',#25,'?','│',#23,
' ','├','[', #1,'▓', #8,']','┤','░',#24, #1,#16,'▐','▌','.','■',' ',
#9,#17,'▐',#16,' ', #8,'│',#25,'?','│',#15,#23,'░', #8,'├','[', #1,
'▓', #8,']','┤','░',#24,#16,' ', #1,'▀','▄','▄','▀','░','■', #8,'│',
#25,'?','│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤','▒',#24, #1,
#16,'▀',' ',' ', #0,#17,'▓', #9,#16,'■','▄',' ', #8,'│',#25,'?','│',
#23,' ','└','[', #1,'▓', #8,']','┘','▓',#24, #1,#16,'░','▄','▀', #0,
#17,'▓',#16,' ', #1,'▐', #9,'▌', #8,'│',#25,'?','│',#23,#25, #2, #9,
#17,#26, #0,#31,#23,' ',' ', #8,'█',#24, #1,#16,'▐', #9,'▌',' ', #0,
#17,'▓', #9,#16,'▄', #1,'▀',' ', #8,'│',#25,'?','│',#23,'▄',' ','▓',
'▄','▄','▄','█',#24, #1,#16,'░','▀',' ', #9,#17,'▐',#16,' ', #1,'░',
' ', #8,'│',#25,'?','│', #1,'▀','░',' ', #9,#17,'▌',#16,' ', #1,'▀',
'░',#24,'░','░','▐','▌', #9,'■','▄', #1,'░', #8,'│',#25,'?','│', #1,
'░', #9,'▄','■', #1,'▐','▌','░','░',#24,#25, #2,'▀',#25, #2, #8,'└',
#26,'?','─','┘',#25, #2, #1,'▀',#24,#15,#23,'█','▀','▀','▀',' ',#26,
#6,'▀',' ',' ','▓',' ',#26, #6,'▀','▒',' ',#26, #3,'▀','▓',' ','▀',
'░',#25, #2,'▀',' ',#16,' ',' ', #1,'▄','▀', #0,#17,'░', #9,#16,'▀',
#1,'▄', #9,'▄','■',' ', #1,'░',' ', #9,'▄','▄','·',' ',#15,#23,'█',
'▀',' ',#26, #3,'▀','▓',#26, #5,'▀','▓','▒',' ','▀','▀',' ','▀',#25,
#4,#24,'█',' ','I','n','t','e','r','f','a','c','e',' ','K','e','y',
' ','R','e','f','e','r','a','n','c','e',#25,#11, #8,'▀',#16,' ', #1,
'▀','░',' ', #0,#17,'▒',#16,' ', #9,'·',' ','▀','▄','.','▀',' ',#17,
'▓',#16,'▀',' ',#15,#23,'█',' ','B','T','H','(','t','m',')',#25,#15,
#8,'▄',#24,#15,'▄',' ', #0,'U','p','/','D','o','w','n','/','P','g',
'U','p','/','P','g','D','n','/','H','o','m','e','/','E','n','d','/',
'E','s','c',#25, #4, #8,'█',#16,' ', #1,'■','▄',' ', #0,#17,'▓', #9,
#16,'▄','▀','▀','▄',' ','▀','▀','▄',#17,'▒',#16,'▄',' ',#15,#23,'▄',
' ', #0,'1','9','9','5',' ','B','l','a','d','e',' ','P','r','o','d',
'u','c','t','i','o','n','s',' ', #8,'▄',#24,#25, #2,'▄',#25, #3,'░',
'▄','▄','▄','▓',' ',' ','▄','▄',#25, #2,#26, #5,'▄','▓','▄','▄','▓',
#26, #6,'▄','█',#16,' ', #1,'▄',' ','▀', #9,'▀', #1,'·','▄', #9,#17,
'░','▐',#16,'█','▄','▄',' ',#17,'░',#16,' ',' ',#23,' ',' ', #8,'▄',
#25, #3,'▓',' ',#26, #5,'▄',' ','▓','▄',' ',' ','▄','▒','▄','▄','▄',
'█',#24);
begin;
UnCrunch (IMAGEDATA,ScreenAddr[ (1*2) + (1*160) -162],IMAGEDATA_LENGTH);
end;